COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00004 ENDMK
C⊗;

VARIABLE /DSIG;
ARRAY R1[1598],R2[1118],R3[788],R4[510],R5[332],R6[500]
	,R7[338];

COMMENT: Sum of delay memory sizes = 5184
	 Reverberation time = 3.00 seconds
	 Clock rate = 12800
	 Distance to first reflector = 4.44 meters;

INSTRUMENT ALLPASS;
I_ONLY
    BEGIN
	PRINT "   ALLPASS REVERB ";
	REVINIT←1;
	IF
	    SRATE ≠ 12800
	 THEN
	    PRINT "
WARNING: SRATE does not match reverberator rate. ";
    END;

REV2(DSIG,1597, .750,R1);
REV2(U1,1117, .720,R2);
REV2(U2,787, .692,R3);
   REV2(U3,509, .671,R4);
      REV2(U4,331, .651,R5);
   REV2(U3,499, .676,R6);
      REV2(U6,337, .649,R7);
OUTA ← OUTA+U5*6.132;
OUTB ← OUTB+U7*6.103;
DSIG←0;
END;